MACD 5/MACD 5.bin/workbench/icon/czesc_2/magicexpansion/install/install_me13_english

Text File | 1994-08-12 | 6KB | 284 lines

;
; Installation script for...
;
; **********************************************************************
;
;                         MagicExpansion 1.3
;                            - Giftware -
;                  Copyright © 1994 by Johannes Beigel
;
; **********************************************************************
;

( set @default-dest "SYS:" )
( set vernum ( getversion "exec.library" ( resident ) ) )
( set ver ( / vernum 65536 ) )

( complete 0 )

; --------------------
; Ask what to install
; --------------------

( set parts
 ( askoptions
  ( prompt "Choose the items you would like installed." )
  ( choices "C include file"
            "MUI image sets"
            "Palettes"
            "Patterns"
            "OS 2.x window patterns"
            "Mouse pointers"
            "Char-Sets" )
  ( help "C include file: Useful new definitions for MUI programming\n\n"
         "MUI image sets: New MUI image sets\n\n"
         "Palettes: A few new palettes (alternatives to the original MagicWB palette)\n\n"
         "Patterns: New Workbench background patterns\n\n"
         "OS 2.x window patterns: old-style window patterns for the \"WBPattern\" prefs-ed\n\n"
         "Mouse pointers: Several normal and busy mouse pointers.\n\n"
         "Char-Sets: Color fonts for your own icons and patterns." )
 )
)

( complete 14 )

; --------------------
; Install the include file
; --------------------

( if( IN parts 0 )
(

 ( set includedest
  ( askdir
   ( prompt "Please select a place for the include file." )
   ( default "INCLUDE:libraries/" )
   ( help "Choose a directory where the include file should be copied to. The best place is"
          "INCLUDE:libraries/." )
  )
 )

 ( makedir includedest )
 ( working "Installing include file" )
 ( copyfiles ( source "/include/libraries/muidefs.h" ) ( dest includedest ) )

)
)

( complete 28 )

; --------------------
; Install the MUI image sets
; --------------------

( if( IN parts 1 )
(

 (set imgsetsdest
  ( askdir
   ( prompt "Please select a place for the MUI image sets." )
   ( default "SYS:Prefs/MUI-Images" )
   ( help "Choose a directory where the MUI image sets will be copied to. You should use the same "
          "directory as you selected during installation of MUI (default: SYS:Prefs/Mui-Images/)." )
  )
 )

 ( makedir imgsetsdest )

 ( working "Installing MUI image sets" )

 ( copyfiles
  ( prompt "Installing MUI image sets.." )
  ( source "/MUI-Images" )
  ( all )
  ( confirm )
  ( dest imgsetsdest )
  ( help @copyfiles-help )
 )

)
)

( complete 42 )

; --------------------
; Install the palettes
; --------------------

( if( IN parts 2 )
(

 ( set palettedest
  ( askdir
   ( prompt "Please select a place for the color palettes." )
   ( default "SYS:Prefs/Presets" )
   ( help "Choose a directory where the palettes should be copied to." )
  )
 )

 ( working "Installing color palettes" )
 ( makedir palettedest )

 ( if ( < ver 39 )
 (

  ( copyfiles
   ( prompt "Installing OS 2.x palettes.." )
   ( source "/OS2Palettes" )
   ( all )
   ( dest palettedest )
   ( confirm )
   ( help @copyfiles-help )
  )

 )
 (

  ( copyfiles
   ( prompt "Installing OS 3.x palettes.." )
   ( source "/OS3Palettes" )
   ( all )
   ( dest palettedest )
   ( confirm )
   ( help @copyfiles-help )
  )

 )
 )

)
)

( complete 56 )

; --------------------
; Install the background patterns
; --------------------

( if( IN parts 3 )
(

 ( set patdest
  ( askdir
   ( prompt "Please select a place for the background patterns." )
   ( default "SYS:Prefs/Patterns" )
   ( help "Choose a directory where the background patterns should be copied to. This should be "
          "the same directory as your old directory with the MagicWB patterns in it." )
  )
 )

 ( working "Installing background patterns" )
 ( makedir patdest )

 ( copyfiles
  ( prompt "Installing background patterns.." )
  ( source "/Patterns" )
  ( all )
  ( dest patdest )
  ( confirm )
  ( help @copyfiles-help )
 )

)
)

( complete 70 )

; --------------------
; Install the 2.x background patterns
; --------------------

( if( IN parts 4 )
(

 ( set winpatdest
  ( askdir
   ( prompt "Please select a place for the OS 2.x window background patterns." )
   ( default "SYS:Prefs/Presets" )
   ( help "Choose a directory where the window patterns should be copied to. This is normally "
          "SYS:Prefs/Presets/." )
  )
 )

 ( working "Installing OS 2.x window background patterns" )
 ( makedir winpatdest )

 ( copyfiles
  ( prompt "Installing OS 2.x window patterns.." )
  ( source "/OS2WinPatterns" )
  ( all )
  ( dest winpatdest )
  ( confirm )
  ( help @copyfiles-help )
 )

)
)

( complete 84 )

; --------------------
; Install the mouse pointers
; --------------------

( if( IN parts 5 )
(

 ( set ptrdest
  ( askdir
   ( prompt "Please select a place for the mouse pointers." )
   ( default "SYS:Prefs/Presets" )
   ( help "Choose a directory where the mouse pointers should be copied to. This is normally "
          "SYS:Prefs/Presets/." )
  )
 )

 ( working "Installing mouse pointers" )
 ( makedir ptrdest )

 ( copyfiles
  ( prompt "Installing mouse pointers.." )
  ( source "/Pointers" )
  ( all )
  ( dest ptrdest )
  ( confirm )
  ( help @copyfiles-help )
 )

)
)

; ------------------
; Install the Char-Sets
; ------------------

( if ( IN parts 6 )
(

 ( set fontdest
  ( askdir
   ( prompt "Please select a place for the char sets." )
   ( default "SYS:" )
   ( help "Choose a directory where the char sets will be copied to." )
  )
 )

 ( working "Installing fonts" )
 ( makedir fontdest )

 ( copyfiles
  ( prompt "Installing fonts.." )
  ( source "/CharSets" )
  ( all )
  ( dest fontdest )
  ( confirm )
  ( help @copyfiles-help )
 )

)
)

( complete 100 )

( exit "Installation of MagicExpansion 1.3 complete. Hope you'll have fun with it. " )